home *** CD-ROM | disk | FTP | other *** search
/ Diccionario Visual Trilingue / VISUAL.iso / SHARED.DIR / 10112_Up De illustrations.ls < prev    next >
Encoding:
Text File  |  1997-07-04  |  1022 b   |  35 lines
  1. on mouseDown
  2.   global gCurrentPos, gNbItem
  3.   if getAt(gNbItem, 3) <= 6 then
  4.     return 
  5.   end if
  6.   set inc to 0.0
  7.   repeat while the mouseDown
  8.     if rollOver(28) then
  9.       if the name of cast the castNum of sprite 28 starts "OF" then
  10.         set TempNum to the castNum of sprite 28 + 1
  11.         set the castNum of sprite 28 to TempNum
  12.       end if
  13.       set inc to inc + 0.075
  14.       if (getAt(gCurrentPos, 3) - integer(inc)) < 2 then
  15.         setAt(gCurrentPos, 3, 2)
  16.       else
  17.         setAt(gCurrentPos, 3, getAt(gCurrentPos, 3) - integer(inc))
  18.       end if
  19.       SetWindow2(3, 9)
  20.       next repeat
  21.     end if
  22.     if the name of cast the castNum of sprite 28 starts "ON" then
  23.       set TempNum to the castNum of sprite 28 - 1
  24.       set the castNum of sprite 28 to TempNum
  25.       updateStage()
  26.     end if
  27.   end repeat
  28.   if the name of cast the castNum of sprite 28 starts "ON" then
  29.     set TempNum to the castNum of sprite 28 - 1
  30.     set the castNum of sprite 28 to TempNum
  31.     updateStage()
  32.   end if
  33.   ActiveField(3)
  34. end
  35.